home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
095
/
151b_src.arc
/
RBBSUTIL.ASM
< prev
next >
Wrap
Assembly Source File
|
1987-02-04
|
19KB
|
304 lines
PAGE 66,132
TITLE RBBS-PC Assembly Language Subroutines Copyright 1986, by D. Thomas Mack
;--------------------------------------------------------------------;
;ROUTINE: RBBSFIND AUTHOR: D. Thomas Mack ;
; 10210 Oxfordshire Road ;
; Great Falls, Virginia 22066 ;
; ;
;DATE: June 29, 1986 VERSION: 1.0 ;
; ;
;FUNCTION: This routine supports calls from the IBM (MICROSOFT) ;
; BASIC Version 2.0 or Microsoft Quick BASIC Version 1.0 ;
; compilers to find the date a file was created. ;
; ;
; CALL RBBSFIND (A$,ERROR%,YEAR%,MONTH%,DAY%) ;
; ;
; where A$ is the fully qualified file name to find the ;
; date for and all other parameters are zeroes. ;
; ;
; Offset Variable Description of Variable ;
; ;
; BP+14 BX = string descriptor address of the file name to ;
; find the creation date for where the string ;
; descriptior has the format: ;
; ;
; Bytes 0 and 1 contain the length of the string ;
; (0 to 32,767). ;
; Bytes 2 and 3 contain the lower and upper 8 bits ;
; of the string's starting address ;
; in string space (respectively). ;
; BP+12 ERROR% = Zero if no error was encountered. Non-zero if an ;
; error occurred. ;
; BP+10 YEAR% = number of years since 1980 when file was last ;
; modified.
; BP+8 MONTH% = month the file was last modified. ;
; BP+6 DAY% = day the file was last modified. ;
; ;
;--------------------------------------------------------------------;
;
; LIST OF PARAMETERS AS THEY APPEAR ON THE STACK
;
PARMLIST STRUC
SAVE_BP DW ? ;RETAINS CONTENTS OF BASE POINTER REGISTER
RET_OFF DW ? ;RETURN ADDRESS OF CALLING PROGRAM
RET_SEG DW ?
PARM5 DW ? ;DAY FILE WAS CREATED
PARM4 DW ? ;MONTH FILE WAS CREATED
PARM3 DW ? ;YEAR FILE WAS CREATED (PAST 1980)
PARM2 DW ? ;ERROR RETURN CODE
PARM1 DW ? ;STRING DESCRIPTOR
PARMLIST ENDS
;
; LET THE ASSEMBLER CALCULATE THE VALUE FOR RETURNING FROM SUBROUTINE WITH EQU
;
PARMSIZE EQU OFFSET PARM1 - OFFSET RET_SEG
;
; LOCAL DATA AREA FOR INITIALIZED CONSTANTS (NONE)
;
CONST SEGMENT WORD PUBLIC 'CONST'
CONST ENDS
;
; LOCAL DATA AREA OF UNINITIALIZED VALUES
;
DATA SEGMENT WORD PUBLIC 'DATA'
SAVE_DTA_OFF DW ? ;ADDRESS OF CURRENT DISK TRANSFER AREA
SAVE_DTA_SEG DW ?
RBBSDTA DB 30 DUP(?) ;WORKING DTA (NOT BASIC'S)
PATHFILE DB 64 DUP(?) ;PATH AND FILE NAME FOR SEARCH
DATA ENDS
DGROUP GROUP DATA,CONST
;
; DEFINE A STACK TO PUSH UP TO 3 ITEMS ON THE STACK AT ANY GIVEN TIME
;
STACK SEGMENT WORD STACK 'STACK'
DW 4 DUP(?)
STACK ENDS
RBBS_UTIL SEGMENT BYTE PUBLIC 'CODE'
ASSUME CS:RBBS_UTIL,DS:DGROUP
RBBSFIND PROC FAR ;LONG CALL
PUBLIC RBBSFIND
PUSH BP ;SAVE CALLER'S BASE POINTER REGISTER -- BP
MOV BP,SP ;SETUP TO ADDRESS OFF OF BASE POINTER REGISTER
MOV BX,[BP].PARM1 ;GET FILE NAME STRING DESCRIPTOR ADDRESS
MOV CX,[BX] ;GET THE SIZE OF THE STRING
XOR AX,AX ;INDICATE NO ERROR CONDITIONS
CMP CX,0 ;IF LENGTH IS ZERO,
JE FINISH ;EXIT
;
MOV SI,[BX+2] ;GET THE ADDRESS OF THE STRING
PUSH DS ;PUSH DATA SEGMENT REGISTER -- DS,
POP ES ;INTO EXTENDED SEGMENT REGISTER -- ES, FOR MOVE
LEA DI,PATHFILE ;MOVE PATH/FILE SPECIFICATION TO "PATHFILE" AREA
CLD ;CLEAR DIRECTION FLAGS
REP MOVSB ;END STRING WITH A BINARY ZERO FOR DOS CALL
MOV BYTE PTR ES:[DI],0
;
MOV AH,2FH ;GET DISK TRANSFER AREA ADDRESS IN BX
INT 21H ;ISSUE DOS INTERRUPT 21
JC FINISH ;EXIT IF THERE WERE ERRORS
MOV SAVE_DTA_OFF,BX ;SAVE BASIC'S DISK TRANSFER AREA
MOV SAVE_DTA_SEG,ES
;
LEA DX,RBBSDTA ;SET UP PRIVATE DISK TRANSFER AREA FROM BASIC'S
MOV AH,1AH ;SETUP NEW TEMPORARY DISK TRANSFER AREA ADDRESS
INT 21H ;ISSUE DOS INTERRUPT 21
JC FINISH ;EXIT IF THERE WERE ERRORS
;
XOR CX,CX ;SET UP TO LOOK FOR ALL DIRECTORY ENTRIES
LEA DX,PATHFILE ;FIND THE FIRST FILE THAT MATCHES "PATHFILE"
MOV AH,4EH ;CALL DOS FUNCTION X'4E' TO FIND FILE
INT 21H ;ISSUE DOS INTERRUPT 21
JC EXIT ;EXIT IF THERE WHERE ERRORS
;
LEA DI,RBBSDTA+24 ;POINT TO DATE FIELD IN DISK TRANSFER AREA (+24)
MOV AX,DS:[DI] ;GET DATE OF FILE (DTA +24) IN AX REGISTER
; BITS 0-4 = DAY(1-31)
; BITS 5-8 = MONTH(1-12)
; BITS 9-15 = YEAR(0 - 119, AS AN OFFSET OF 1980)
; SET UP AS FOLLOWS:
;
; |<-------YEAR------->|<--MONTH-->|<-----DAY---->|
; |15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0|
; | | | | |
; 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 = X'01E0'
; 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 = X'001F'
MOV BX,AX ;GET THE DATE INTO THE BX REGISTER
MOV CL,9 ;PREPARE TO SHIFT RIGHT NINE BITS (0-8)
SHR BX,CL ;SHIFT RIGHT NINE BITS LEAVING THE YEAR ONLY
MOV DI,[BP].PARM3 ;GET ADDRESS OF WHERE TO PUT YEAR (AS AN INDEX
MOV [DI],BX ;PAST 1980) FILE WAS CREATED AND PASS IT BACK
;
MOV BX,AX ;GET THE DATE INTO THE BX REGISTER AGAIN
AND BX,01E0H ;TURN OFF ALL THE BITS EXCEPT BITS 5-8 (MONTH)
MOV CL,5 ;PREPARE TO SHIFT RIGHT FIVE BITS (0-4)
SHR BX,CL ;SHIFT RIGHT FIVE BITS TO GET MONTH ONLY
MOV DI,[BP].PARM4 ;GET ADDRESS OF WHERE TO PUT MONTH FILE WAS MADE
MOV [DI],BX ;PASS BACK THE MONTH THE FILE WAS CREATED
;
AND AX,001FH ;TURN OFF ALL THE BITS EXCEPT BITS 0-4 (THE DAY)
MOV DI,[BP].PARM5 ;GET ADDRESS OF WHERE TO PUT DAY FILE WAS MADE
MOV [DI],AX ;PASS BACK THE DAY THE FILE WAS CREATED
XOR AX,AX ;INDICATE NO ERROR CONDITIONS
;
EXIT: PUSH AX ;SAVE ERROR INDICATOR REGISTER -- AX
PUSH DS ;SAVE DATA SEGMENT REGISTER -- DS
MOV DX,SAVE_DTA_OFF ;RESTORE BASIC'S DISK TRANSFER AREA AFTER CPC151A7+
MOV DS,SAVE_DTA_SEG ;SETTING UP THE TEMPORARY RBBS-PC ONE CPC151A7+
MOV AH,1AH ;CALL DOS FUNCTION '1A' TO CHANGE DTA'S
INT 21H ;ISSUE DOS INTERRUPT 21 CPC151A7+
POP DS ;RESTORE DATA SEGMENT REGISTER -- DS
POP AX ;RESTORE ERROR INDICATOR REGISTER -- AX
;
FINISH: MOV DI,[BP].PARM2 ;GET ADDRESS OF WHERE TO PUT ERROR RETURN CODE
MOV [DI],AX ;PUT THE ERROR RETURN CODE IN ERROR%
POP BP ;RESTORE CALLERS BASE POINTER REGISTER-- BP
RET PARMSIZE ;RETURN AND REMOVE THE 5 PARAMETERS FROM STACK
RBBSFIND ENDP
;--------------------------------------------------------------------;
;ROUTINE: RBBSULC AUTHOR: D. Thomas Mack ;
; 10210 Oxfordshire Road ;
; Great Falls, Virginia 22066 ;
; ;
;DATE: June 29, 1986 VERSION: 1.0 ;
; ;
;FUNCTION: This routine supports calls from the IBM (MICROSOFT) ;
; BASIC Version 2.0 or Microsoft Quick BASIC Version 1.0 ;
; compilers to convert a string to upper case alphabetic ;
; characters. ;
; ;
; CALL RBBSULC (A$) ;
; ;
; where A$ is the string to be converted to upper case. ;
; ;
; Offset Variable Description of Variable ;
; ;
; BP+6 BX = string descriptor address where the string ;
; descriptor has the format: ;
; ;
; Bytes 0 and 1 contain the length of the string ;
; (0 to 32,767). ;
; Bytes 2 and 3 contain the lower and upper 8 bits ;
; of the string's starting address ;
; in string space (respectively). ;
; ;
;--------------------------------------------------------------------;
RBBSULC PROC FAR ;LONG CALL
PUBLIC RBBSULC
PUSH BP ;SAVE CALLERS BASE POINTER REGISTER -- BP
MOV BP,SP ;SETUP TO ADDRESS OFF OF BASE POINTER REGISTER
MOV BX,[BP+6] ;GET A$ STRING DESCRIPTOR ADDRESS
MOV CX,[BX] ;GET LENGTH OF STRING A$ IN CX REGISTER
MOV DI,2[BX] ;GET ADDRESS OF STRING A$ IN DATA INDEX
CMP CX,0 ;IF LENGTH IS ZERO (I.E. PASSED A NULL STRING)
JZ DONE ;EXIT
LOOP: MOV AL,[DI] ;GET A CHARACTER.
CMP AL,'a' ;IF LESS THAN A LOWER CASE "A" DON'T CHANGE.
JL NEXT ;JUMP TO GET THE NEXT CHARACTER.
CMP AL,'z' ;IF GREATER THAN A LOWER CASE "Z" DON'T CHANGE.
JA NEXT ;JUMP TO GET THE NEXT CHARACTER.
LOWER: SUB AL,32 ;SUBTRACT 32 FROM VALUE IF A LOWER CASE LETTER.
MOV [DI],AL ;STORE THE VALUE IN THE STRING AREA.
NEXT: INC DI ;POINT TO THE NEXT CHARACTER OF THE STRING.
LOOP LOOP ;NOW GO BACK TO TEST THE NEXT CHARACTER.
DONE: POP BP ;RESTORE CALLERS BASE POINTER REGISTER-- BP
RET 2 ;RETURN AND REMOVE THE 1 PARAMETES FROM STACK
RBBSULC ENDP
;--------------------------------------------------------------------;
;ROUTINE: RBBSFREE AUTHOR: D. Thomas Mack ;
; 10210 Oxfordshire Road ;
; Great Falls, Virginia 22066 ;
; ;
;DATE: June 29, 1986 VERSION: 1.0 ;
; ;
;FUNCTION: This routine supports calls from the IBM (MICROSOFT) ;
; BASIC Version 2.0 or Microsoft Quick BASIC Version 1.0 ;
; compilers to DOS interrupt 36 to find the amount of free ;
; space on a specific disk drive. ;
; ;
; CALL RBBSFREE (AX%,BX%,CX%,DX%) ;
; ;
; where AX% and BX% are 16-bit binary data items (i.e. ;
; integer variables) and should be as follows: ;
; ;
; Offset Variable Description of Variable ;
; ;
; BP+12 AX% = number of the disk drive to find the free space ;
; for where 0=default drive, 1=A, 2=B, etc. ;
; ;
; BP+10 BX% = zero when calling RBBSFREE ;
; BP+8 CX% = zero when calling RBBSFREE ;
; BP+6 DX% = zero when calling RBBSFREE ;
; ;
; upon returning from RBBSFREE, these are set as follows: ;
; ;
; AX% = if the drive specified was invalid contains the ;
; hexadecimal value of FFFF. If the drive was ;
; valid contains the number of sectors per cluster.;
; BX% = contains the number of available clusters. ;
; CX% = contains the number of bytes per sector. ;
; DX% = contains the total number of clusters on the ;
; drive. ;
; FREESPACE = AX%*BX%*CX% IF AX%<> X'FFFF' ;
;--------------------------------------------------------------------;
RBBSFREE PROC FAR ;LONG CALL
PUBLIC RBBSFREE
PUSH BP ;SAVE CALLERS BASE POINTER REGISTER -- BP
MOV BP,SP ;SETUP TO ADDRESS OFF OF BASE POINTER REGISTER
MOV DI,[BP+12] ;GET ADDRESS OF AX% PARAMETER
MOV DL,[DI] ;PUT VALUE IN DL REGISTER OF DISK DRIVE
MOV AH,36H ;CALL DOS FUNCTION 36 TO GET FREE DISK SPACE
INT 21H ;ISSUE DOS INTERRUPT 21
MOV DI,[BP+12] ;GET ADDRESS OF AX% PARAMETER
MOV [DI],AX ;PUT VALUE OF AX IN AX% PARAMETER
MOV DI,[BP+10] ;GET ADDRESS OF BX% PARAMETER
MOV [DI],BX ;PUT VALUE OF BX IN BX% PARAMETER
MOV DI,[BP+8] ;GET ADDRESS OF CX% PARAMETER
MOV [DI],CX ;PUT VALUE OF CX IN CX% PARAMETER
MOV DI,[BP+6] ;GET ADDRESS OF DX% PARAMETER
MOV [DI],DX ;PUT VALUE OF DX IN DX% PARAMETER
POP BP ;RESTORE CALLERS BASE POINTER REGISTER-- BP
RET 8 ;RETURN AND REMOVE THE 4 PARAMETERS FROM STACK
RBBSFREE ENDP
;--------------------------------------------------------------------;
;ROUTINE: RBBSDOS AUTHOR: D. Thomas Mack ;
; 10210 Oxfordshire Road ;
; Great Falls, Virginia 22066 ;
; ;
;DATE: June 29, 1986 VERSION: 1.0 ;
; ;
;FUNCTION: This routine supports calls from the IBM (MICROSOFT) ;
; BASIC Version 2.0 or Microsoft Quick BASIC Version 1.0 ;
; compilers to DOS interrupt 33 to find the version of DOS ;
; that RBBS-PC is being run under. ;
; ;
; CALL RBBSDOS (AX%,BX%) ;
; ;
; where AX% and BX% are 16-bit binary data items (i.e. ;
; integer variables) and should be as follows: ;
; ;
; Offset Variable Description of Variable ;
; ;
; BP+8 AX% = major version number of the DOS that RBBS-PC is ;
; running under. (Zero if less than DOS 2.0) ;
; ;
; BP+6 BX% = minor version under of the DOS that RBBS-PC is ;
; running under. ;
;--------------------------------------------------------------------;
RBBSDOS PROC FAR ;LONG CALL
PUBLIC RBBSDOS
PUSH BP ;SAVE CALLERS BASE POINTER REGISTER -- BP
MOV BP,SP ;SETUP TO ADDRESS OFF OF BASE POINTER REGISTER
MOV AH,30H ;CALL DOS FUNCTION 30 TO GET DOS VERSION
INT 21H ;ISSUE DOS INTERRUPT 21
MOV DI,[BP+8] ;GET ADDRESS OF AX% PARAMETER
MOV [DI],AL ;PUT VALUE OF MAJOR DOS NUMBER IN AX% PARAMETER
MOV DI,[BP+6] ;GET ADDRESS OF BX% PARAMETER
MOV [DI],AH ;PUT VALUE OF MINOR DOS VERSION IN B% PARAMETER
POP BP ;RESTORE CALLERS BASE POINTER REGISTER-- BP
RET 4 ;RETURN AND REMOVE THE 2 PARAMETERS FROM STACK
RBBSDOS ENDP
RBBS_UTIL ENDS
END